home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / ScalaMM1.adf / Install < prev    next >
Text File  |  1992-07-17  |  25KB  |  667 lines
  1. ; $VER: SCALA-TV Install Version 1.1 (1-jul-92)
  2. ; Script to Install @app-name
  3. ; By Henk Arts, Scala 
  4. (user 2)
  5.  
  6. ;=============================================================================
  7. ; Size strings
  8.  
  9. (SET @S_ANIM1 1509992)        ;DiskSize Anim1.lha
  10. (SET @S_AREXX 3298)        ;DiskSize Arexx.lha
  11. (SET @S_ARROWS1 10854)        ;DiskSize Arrows1.lha
  12. (SET @S_BACK1 748792)        ;DiskSize Back1.lha (Max Overscan)
  13. (SET @S_BACK2 914894)        ;DiskSize Back2.lha (Max Overscan)
  14. (SET @S_BACK3 1217264)        ;DiskSize Back3.lha (Max Overscan)
  15. (SET @S_BACK4 636216)        ;DiskSize Back4.lha (Max Overscan)
  16. (SET @S_BACK5 761278)        ;DiskSize Back5.lha (Max Overscan)
  17. (SET @S_BACK6 439098)        ;DiskSize Back6.lha (Max Overscan)
  18. (SET @S_BACK7 240718)        ;DiskSize Back7.lha (Max Overscan)
  19. (SET @S_DEVS 128256)        ;DiskSize ScalaMM.device
  20. (SET @S_EX 62780)        ;DiskSize Ex.lha
  21. (SET @S_FONT 918575)        ;DiskSize Font1.lha + Font2.lha
  22. (SET @S_LASCALA1 430444)    ;DiskSize LaScala1.lha
  23. (SET @S_LASCALA2 1064520)    ;DiskSize LaScala2.lha
  24. (SET @S_LASCALA3 156354)    ;DiskSize LaScala3.lha
  25. (SET @S_LIBS 176620)        ;DiskSize ScalaMM.Library
  26. (SET @S_LINE1 594)        ;DiskSize Line1.lha
  27. (SET @S_MUSIC1 406928)        ;DiskSize Music1.lha
  28. (SET @S_PALETTES1 12428)    ;DiskSize Palettes1.lha
  29. (SET @S_PICT1 37802)        ;DiskSize Pict1.lha
  30. (SET @S_PICT2 31586)        ;DiskSize Pict2.lha
  31. (SET @S_SCALA 46182)        ;DiskSize ScalaMM + ScalaMMPlayer + font
  32. (SET @S_SCALA1 440988)        ;DiskSize Scala1.lha (Demo pictures)
  33. (SET @S_SCRIPTS 99511)        ;DiskSize Scr.lha
  34. (SET @S_SOUND1 295546)        ;DiskSize Sound1.lha
  35. (SET @S_SYM1 80546)        ;DiskSize ScSym1.lha (Demo Symbols)
  36. (SET @S_UTILS 93760)        ;DiskSize Utils.lha
  37.  
  38. ;=============================================================================
  39. ; Text Strings
  40.  
  41. (set #AREXX         (cat "Scala Arexx Example"))
  42. (set #BACKGROUNDS     (cat "Scala Backgrounds"))
  43. (set #BCKG         (cat "Choose which size you want your background pictures:"))
  44. (set #BCKG.HLP         (cat "You can select which background format you need"))
  45. (set #DECANIM1        (cat "decompressing Anim1 to "))
  46. (set #DECAREXX        (cat "decompressing Arexx script to "))
  47. (set #DECBACK1        (cat "decompressing Backgrounds Back1.lha to RAM:"))
  48. (set #DECBACK2        (cat "decompressing Backgrounds Back2.lha to RAM:"))
  49. (set #DECBACK3        (cat "decompressing Backgrounds Back3.lha to RAM:"))
  50. (set #DECBACK4        (cat "decompressing Backgrounds Back4.lha to RAM:"))
  51. (set #DECBACK5        (cat "decompressing Backgrounds Back5.lha to RAM:"))
  52. (set #DECBACK6        (cat "decompressing Backgrounds Back6.lha to RAM:"))
  53. (set #DECBACK7        (cat "decompressing Backgrounds Back7.lha to RAM:"))
  54. (set #DECDEMOBACK    (cat "decompressing Scala Backgrounds to "))
  55. (set #DECDEMOS        (cat "decompressing Scala Demo Scripts to "))
  56. (set #DECDEV        (cat "decompressing ScalaMM.device into DEVS:"))
  57. (set #DECEX        (cat "decompressing Scala EX to "))
  58. (set #DECFONTS        (cat "decompressing Scala Fonts into FONTS:"))
  59. (set #DECICONS        (cat "decompressing icons to ram:"))
  60. (set #DECLASCALA1    (cat "decompressing LaScala1 to "))
  61. (set #DECLASCALA2    (cat "decompressing LaScala2 to "))
  62. (set #DECLASCALA3    (cat "decompressing LaScala3 to "))
  63. (set #DECLIB         (cat "decompressing ScalaMM.library into LIBS:"))
  64. (set #DECMUSIC        (cat "decompressing Scala Music to "))
  65. (set #DECPALETTES    (cat "decompressing Scala Palettes to "))
  66. (set #DECSCALA        (cat "decompressing ScalaMM and ScalaMMPlayer into "))
  67. (set #DECSOUNDS        (cat "decompressing Scala Sounds to "))
  68. (set #DECSYMBOLS    (cat "decompressing Scala Symbols to "))
  69. (set #DECUTILS        (cat "decompressing Scala Utilities to "))
  70. (set #DEMO         (cat "Scala Demo Scripts"))
  71. (set #DEST         (cat "Please select where your "@app-name" should be installed: "))
  72. (set #ERRORRAM        (cat "Unable to copy necessary files to Ram Disk."))
  73. (set #EX         (cat "Scala EX"))
  74. (set #FONTS         (cat "Scala Fonts"))
  75. (set #MAIN (cat "Please select which parts of " @app-name " you would like to install:"))
  76. (set #MAIN.HLP         (cat "This installation sequence is divided into six parts. "))
  77. (set #MAINSTP         (cat "You did not select anything, so there is nothing to do."))
  78. (set #MAXN         (cat "Maximum  736 x 482"))
  79. (set #MAXP         (cat "Maximum  736 x 580"))
  80. (set #MMDISK1        (cat "please insert Disk 1 in any drive"))
  81. (set #MMDISK2         (cat "please insert Disk 2 in any drive"))
  82. (set #MMDISK3        (cat "please insert Disk 3 in any drive"))
  83. (set #MMDISK4         (cat "please insert Disk 4 in any drive"))
  84. (set #MMDISK5         (cat "please insert Disk 5 in any drive"))
  85. (set #MMDISK6         (cat "please insert Disk 6 in any drive"))
  86. (set #MMDISK7         (cat "please insert Disk 7 in any drive"))
  87. (set #MMDISK8         (cat "please insert Disk 8 in any drive"))
  88. (set #MOVELINGO        (cat "now replacing the path in script:\n\n"))
  89. (set #NODEST         (cat "Sorry, Device "))
  90. (set #NODEST2        (cat  " does not exists.\n Please Select \"Proceed\" to try again."))
  91. (set #NORN         (cat "Normal   640 x 400"))
  92. (set #NOROOM        (cat "There is not enough room to install... clean up your disk and try again "))
  93. (set #NOROOMBCK     (cat "There is not enough room to install (all) the background pictures. Clean up your disk and try again "))    
  94. (set #NOROOMDEV     (cat "There is not enough room to install ScalaMM.device in DEVS: clean up your disk and try again "))
  95. (set #NOROOMFONT    (cat "There is not enough room to install Scala fonts in FONTS: clean up your disk and try again "))
  96. (set #NOROOMLIB     (cat "There is not enough room to install ScalaMM.library in LIBS: clean up your disk and try again "))
  97. (set #NORP         (cat "Normal   640 x 512"))
  98. (set #NTSCAMIGA     (cat "You are using a NTSC Amiga\n"))
  99. (set #PALAMIGA         (cat "You are using a PAL Amiga\n"))
  100. (set #PALETTES         (cat "Scala Palettes"))
  101. (set #RESBACK1        (cat "resizing background "))
  102. (set #RESBACK2        (cat " to "))
  103. (set #STDN         (cat "Standard 704 x 480"))
  104. (set #STDP         (cat "Standard 704 x 566"))
  105. (set #SYMBOLS         (cat "Scala Symbols"))
  106. (set #UTILS         (cat "Scala Utilities"))
  107.  
  108. ;=============================================================================
  109. ; Procedures
  110.  
  111. (Procedure Config_opt
  112.  
  113.     (set osversion (/ (getversion) 65536))
  114.  
  115.     (if (=(database "vblank") 50)
  116.         (    (SET VBL (cat "PAL"))
  117.             (SET @NOR (cat "640 x 512"))
  118.             (SET @STD (cat "704 x 566"))
  119.             (SET @MAX (cat "736 x 580")))
  120.  
  121.         (    (SET VBL (cat "NTSC"))
  122.             (SET @NOR (cat "640 x 400"))
  123.             (SET @STD (cat "704 x 480"))
  124.             (SET @MAX (cat "736 x 482")))))
  125. ;-----------------------------------------------------------------------------
  126. (Procedure Inst_opt
  127.     (set slct
  128.         (askoptions
  129.             (prompt #main)
  130.             (help "")
  131.             (choices @app-name #Utils #Demo #Arexx #EX #Fonts #Backgrounds #Palettes #Symbols )))
  132.             (while (= slct 0)    
  133.                 (message #mainstp)
  134.                 (Inst_opt)))
  135. ;-----------------------------------------------------------------------------
  136. (Procedure Bckg_opt
  137.     (if (= VBL "PAL")
  138.         (set bckg
  139.             (askchoice
  140.                 (prompt #PALAmiga #bckg)
  141.                 (help "")
  142.                 (choices #NORP #STDP #MAXP)))
  143.           (set bckg
  144.             (askchoice
  145.                 (prompt #NTSCAmiga #bckg)
  146.                 (help "")
  147.                 (choices #NORN #STDN #MAXN))))
  148.  
  149.         (if (= Bckg 0)
  150.             ((SET RES (cat "NOR"))(SET @RES @NOR))
  151.  
  152.         (if (= Bckg 1)
  153.             ((SET RES (cat "STD"))(SET @RES @STD))
  154.             ((SET RES (cat "MAX"))(SET @RES @MAX)))))
  155. ;-----------------------------------------------------------------------------
  156. (Procedure Dest_opt
  157.     (set @default-dest
  158.         (askdir
  159.             (prompt #dest)
  160.             (help @askdir-help)
  161.             (newpath)
  162.             (default "Work:Scala")))
  163.             (if (= (exists (pathonly (@default-dest))) 0)
  164.                 (    (message #NODEST (pathonly (@default-dest)) #NODEST2)
  165.                     (Dest_opt))) 
  166.             (makedir @default-dest(infos))
  167.             (tooltype (dest @default-dest)(noposition)))
  168. ;-----------------------------------------------------------------------------
  169. (Procedure Inst_libs
  170.     (delete "LIBS:ScalaMM.library")
  171.     (if (< (getdiskspace "libs:") @S_LIBS)
  172.         (abort #NOROOMLIB))
  173.     (copyfiles (prompt "")(help "")(source "Scalamm1:LIBS")(all)(dest "RAM:"))
  174.     (working #DECLIB)
  175.     (run ("RAM:LHa -E -N x RAM:ScalaMMlib.lha LIBS:"))
  176.     (delete "RAM:ScalaMMlib.lha"))
  177. ;-----------------------------------------------------------------------------
  178. (Procedure Inst_devs
  179.     (delete "DEVS:ScalaMM.device")
  180.     (if (< (getdiskspace "devs:") @S_DEVS)
  181.         (abort #NOROOMDEV))
  182.     (copyfiles (prompt "")(help "")(source "Scalamm1:DEVS/ScalaMMdev.lha")(files)(dest "RAM:"))
  183.     (working #DECDEV)
  184.     (run ("RAM:LHa -E -N x RAM:ScalaMMdev.lha DEVS:"))
  185.     (delete "RAM:ScalaMMdev.lha"))
  186. ;-----------------------------------------------------------------------------
  187. (Procedure Inst_Scala
  188.     (if (< (getdiskspace @default-dest) @S_SCALA)
  189.         (abort #NOROOMBCK))
  190.     (copyfiles (prompt "")(help "")(source "Scalamm1:SCALA")(all)(dest "RAM:"))
  191.     (working #DECSCALA @default-dest)
  192.     (run ("RAM:LHa -E -N x RAM:ScalaMM.lha \"%s/\"" @default-dest))
  193.     (delete "RAM:ScalaMM.lha")
  194.     (copyfiles (prompt "")(help "")(source "RAM:Icons/ScalaMM.info")(files)(dest @default-dest))
  195.     (copyfiles (prompt "")(help "")(source "RAM:Icons/ScalaMMPlayer.info")(files)(dest @default-dest))
  196.     (working #DECFONTS)
  197.     (copyfiles (prompt "")(help "")(source "Scalamm1:FONTS")(all)(dest "RAM:"))
  198.     (run ("RAM:LHA -E -N x RAM:scalafont.lha fonts:"))
  199.     (delete "RAM:Scalafont.lha"))
  200. ;-----------------------------------------------------------------------------
  201. (Procedure Move_lingo
  202.     (set n 0)
  203.     (while (set thisfile (select n     "ScalaWorld.Script"     "ScalaWipes.script" 
  204.                     "ScalaVoice.script"     "ScalaTime.script"
  205.                     "ScalaQuiz.script"     "ScalaProducts.script" 
  206.                     "ScalaMain.script"     "ScalaFonts.script" 
  207.                     "ScalaFeatures.script"     "LaScalatore.script" ""))
  208.     (((set @scr (tackon @dest thisfile))
  209.     (working #MOVELINGO thisfile)
  210.     (run ("RAM:MoveLingo %s Work:Scala %s %s" @scr @default-dest @dest ))
  211.     (tooltype (dest @scr )(noposition)))
  212.     (set n(+ n 1)))))
  213. ;-----------------------------------------------------------------------------
  214. (Procedure rez_Back
  215.     (set @pic (tackon "ram:" thisfile))
  216.     (working #RESBACK1 thisfile #RESBACK2 @RES)
  217.     (run ("RAM:MakeOverscan %s %s %s %s" @pic @pic VBL RES))
  218.     (copyfiles (prompt "")(help "")(source @pic)(files)(dest @backgrounds))
  219.     (delete @pic))
  220. ;-----------------------------------------------------------------------------    
  221. (Procedure copy_Back
  222.     (set @pic (tackon "ram:" thisfile))
  223.     (copyfiles (prompt "")(help "")(source @pic)(files)(dest @backgrounds))
  224.     (delete @pic))
  225. ;-----------------------------------------------------------------------------
  226. (Procedure demo_Back
  227.     (set @pic (tackon "ram:TMP" thisfile))
  228.     (copyfiles (prompt "")(help "")(source @pic)(files)(dest @backgrounds))
  229.     (delete @pic))
  230. ;-----------------------------------------------------------------------------
  231. (Procedure Inst_Dsk2
  232.     (set @backgrounds (tackon @default-dest "Backgrounds"))
  233.     (askdisk (prompt #MMDISK2)(dest "ScalaMM2")(help @askdisk-help))
  234.     (makedir (@backgrounds)(infos))
  235.     (tooltype (dest @backgrounds)(noposition)) 
  236.  
  237.     (if (< (getdiskspace @default-dest) @S_BACK1)
  238.         (abort #NoRoomBCK))
  239.     (copyfiles (prompt "")(help "")(source "ScalaMM2:Back1.lha")(files)(dest "RAM:"))
  240.     (working #DECBACK1 )
  241.     (run ("RAM:LHa -E -N x RAM:Back1.lha RAM:"))
  242.     (delete "RAM:Back1.lha")
  243.     (set n 0)
  244.     (while (set thisfile (select n     "NaivePlate"     "NaivePiano"     "NaivePhone"
  245.                     "NaivePencil"     "NaiveDisk"     "NaiveCoffee"
  246.                     "NaiveClock"     "NaiveBook"     "Grass001" 
  247.                     "Fantasy001"     "Fabrics003"     "Fabrics002" 
  248.                     "Fabrics001"     ""))
  249.     ((Rez_Back)(set n(+ n 1))))
  250.  
  251.     (set n 0)
  252.     (while (set thisfile (select n     "Number001"     "Number002"     "Number003"
  253.                     "Number004"    "Number005"    "Number006"
  254.                     "Number007"    "Number008"    "Number009" ""))
  255.     ((Copy_Back)(set n(+ n 1))))
  256.  
  257.  
  258.     (if (< (getdiskspace @default-dest) @S_BACK5)
  259.         (abort #NoRoomBCK))
  260.     (copyfiles (prompt "")(help "")(source "ScalaMM2:Back5.lha")(files)(dest "RAM:"))
  261.     (working #DECBACK5 )
  262.     (run ("RAM:LHa -E -N x RAM:Back5.lha RAM:"))
  263.     (delete "RAM:Back5.lha")
  264.     (set n 0)
  265.     (while (set thisfile (select n     "Texture001"     "Texture002"     "Texture003"
  266.                     "Texture004"    "Texture005"    "Texture006"
  267.                     "Texture007"     "")) 
  268.     ((Rez_Back)(set n(+ n 1)))))
  269. ;-----------------------------------------------------------------------------
  270. (Procedure Inst_Dsk3
  271.     (askdisk (prompt #MMDISK3)(dest "ScalaMM3")(help @askdisk-help))
  272.  
  273.     (if (< (getdiskspace @default-dest) @S_BACK2)
  274.         (abort #NoRoomBCK))
  275.     (copyfiles (prompt "")(help "")(source "ScalaMM3:Back2.lha")(files)(dest "RAM:"))
  276.     (working #DECBACK2 )
  277.     (run ("RAM:LHa -E -N x RAM:Back2.lha RAM:"))
  278.     (delete "RAM:Back2.lha")
  279.     (set n 0)
  280.     (while (set thisfile (select n     "Painting001"     "Painting002"     "Painting003"
  281.                     "Painting004"    "Paper001"     "Paper002"
  282.                     "Paper003"    "Paper004"    "Paper005"
  283.                     "Sky001"     ""))
  284.     ((Rez_Back)(set n(+ n 1))))
  285.  
  286.     (if (< (getdiskspace @default-dest) @S_BACK7)
  287.         (abort #NoRoomBCK))
  288.     (copyfiles (prompt "")(help "")(source "ScalaMM3:Back7.lha")(files)(dest "RAM:"))
  289.     (working #DECBACK7 )
  290.     (run ("RAM:LHa -E -N x RAM:Back7.lha RAM:"))
  291.     (delete "RAM:Back7.lha")
  292.     (set n 0)
  293.     (while (set thisfile (select n     "Theme001"     "Theme002"     "Theme003"
  294.                     "Theme004"     "Water001"     "")) 
  295.     ((Rez_Back)(set n(+ n 1))))
  296.  
  297.     (set n 0)
  298.     (while (set thisfile (select n "World001" ""))
  299.     ((Copy_Back)(set n(+ n 1)))))
  300. ;-----------------------------------------------------------------------------
  301. (Procedure Inst_Dsk4
  302.     (set @backgrounds (tackon @default-dest "Backgrounds"))
  303.     (askdisk (prompt #MMDISK4)(dest "ScalaMM4")(help @askdisk-help))
  304.     (makedir (@backgrounds)(infos))
  305.     (tooltype (dest @backgrounds)(noposition)) 
  306.  
  307.     (if (< (getdiskspace @default-dest) @S_BACK3)
  308.         (abort #NoRoomBCK))
  309.     (copyfiles (prompt "")(help "")(source "ScalaMM4:Back3.lha")(files)(dest "RAM:"))
  310.     (working #DECBACK3 )
  311.     (run ("RAM:LHa -E -N x RAM:Back3.lha RAM:"))
  312.     (delete "RAM:Back3.lha")
  313.     (set n 0)
  314.     (while (set thisfile (select n     "Stones001"     "Stones002"     "Stones003"
  315.                     "Stones004"    "Stones005"    "Stones006"  
  316.                     "Stones007"    "Stones008"    "Stones009"
  317.                     "Stones010"    "Stones011"    ""))
  318.     ((Rez_Back)(set n(+ n 1))))
  319.  
  320.     (set n 0)
  321.     (while (set thisfile (select n "Window001" ""))
  322.     ((Copy_Back)(set n(+ n 1)))))
  323. ;-----------------------------------------------------------------------------
  324. (Procedure Inst_Dsk5
  325.     (askdisk (prompt #MMDISK5)(dest "ScalaMM5")(help @askdisk-help))
  326.  
  327.     (if (< (getdiskspace @default-dest) @S_BACK4)
  328.         (abort #NoRoomBCK))
  329.     (copyfiles (prompt "")(help "")(source "ScalaMM5:Back4.lha")(files)(dest "RAM:"))
  330.     (working #DECBACK4 )
  331.     (run ("RAM:LHa -E -N x RAM:Back4.lha RAM:"))
  332.     (delete "RAM:Back4.lha")
  333.     (set n 0)
  334.     (while (set thisfile (select n     "Tech001"     "Tech002"     "Tech003"
  335.                     "Tech004"    "Tech005"    "Tech006"
  336.                     "Tech007"    ""))
  337.     ((Rez_Back)(set n(+ n 1))))
  338.  
  339.     (if (< (getdiskspace @default-dest) @S_BACK6)
  340.         (abort #NoRoomBCK))
  341.     (copyfiles (prompt "")(help "")(source "ScalaMM5:Back6.lha")(files)(dest "RAM:"))
  342.     (working #DECBACK6 )
  343.     (run ("RAM:LHa -E -N x RAM:Back6.lha RAM:"))
  344.     (delete "RAM:Back6.lha")
  345.     (set n 0)
  346.     (while (set thisfile (select n     "Texture008"    "Texture009"    "Texture010"
  347.                     "Texture011"    "Texture012"    "Texture013"
  348.                     ""))
  349.     ((Rez_Back)(set n(+ n 1)))))
  350. ;-----------------------------------------------------------------------------
  351. (Procedure Inst_font
  352.     (askdisk (prompt #MMDISK5)(dest "ScalaMM5")(help @askdisk-help))
  353.  
  354.     (if (< (getdiskspace "fonts:") @S_FONT)
  355.         (abort #NOROOMFONT))
  356.     (copyfiles (prompt "")(help "")(source "ScalaMM5:Font1.lha")(files)(dest "RAM:"))
  357.     (working #DECFONTS)
  358.     (set @font_dest (pathonly(expandpath "fonts:")))
  359.     (run ("RAM:LHa -E -N x RAM:Font1.lha \"%s\"" @font_dest))
  360.     (delete "RAM:Font1.lha")
  361.     (copyfiles (prompt "")(help "")(source "ScalaMM5:Font2.lha")(files)(dest "RAM:"))
  362.     (working #DECFONTS)
  363.     (run ("RAM:LHa -E -N x RAM:Font2.lha \"%s\"" @font_dest))
  364.     (delete "RAM:Font2.lha"))
  365. ;-----------------------------------------------------------------------------
  366. (Procedure Inst_Files
  367.     (set @In_File (tackon @source @Name.LHA))
  368.     (set @TMP (tackon "RAM:" @Name.LHA))
  369.     (makedir (@Dest)(infos))
  370.     (tooltype (dest @Dest)(noposition)) 
  371.  
  372.     (if (< (getdiskspace @Dest) @Size)
  373.         (abort #NOROOM))
  374.     (copyfiles (prompt "")(help "")(source @In_File)(files)(dest "RAM:"))
  375.     (working @Working @Dest)
  376.     (run ("RAM:LHa -E -N x %s \"%s/\"" @TMP @Dest))
  377.     (delete @TMP))
  378.  
  379. ;=============================================================================
  380. ; Selection part
  381.  
  382. (Config_opt)
  383. (Inst_opt)
  384. (if (BITAND slct 64) (Bckg_opt))    ; selected backgrounds, ask what format
  385. (if (<> slct 32)(Dest_opt))        ; don't ask dest-path when only fonts selected
  386.  
  387. ;=============================================================================
  388. ; Warming up for Install on Harddisk.
  389.  
  390. (askdisk
  391.     (prompt #MMDISK1)
  392.     (dest "Scalamm1")
  393.     (help @askdisk-help))
  394.  
  395. (copyfiles
  396.     (prompt "")
  397.     (help "")
  398.     (source "Scalamm1:Tools")
  399.     (all)
  400.     (dest "RAM:"))
  401.  
  402. (if (= 0 (exists "RAM:LHa"))
  403.     (abort #ERRORRAM))
  404.  
  405. (if (= 0 (exists "RAM:MakeOverscan"))
  406.     (abort #ERRORRAM))
  407.  
  408. (if (= 0 (exists "RAM:MoveLingo"))
  409.     (abort #ERRORRAM))
  410.  
  411. (if (>= osversion 36)
  412.     (    (askdisk (prompt #MMDISK1)(dest "Scalamm1")(help @askdisk-help))
  413.         (set @Working #DECICONS)
  414.         (set @Dest ("RAM:Icons"))
  415.         (set @Source ("Scalamm1:Icons"))
  416.         (set @Name.LHA ("Icons2.0.lha"))
  417.         (set @Size 0)
  418.         (Inst_Files)
  419.     )
  420.     (    (askdisk (prompt #MMDISK1)(dest "Scalamm1")(help @askdisk-help))
  421.         (set @Working #DECICONS)
  422.         (set @Dest ("RAM:Icons"))
  423.         (set @Source ("Scalamm1:Icons"))
  424.         (set @Name.LHA ("Icons1.3.lha"))
  425.         (set @Size 0)
  426.         (Inst_Files)
  427.     )
  428. )
  429.  
  430. (onerror 
  431.     (delete     "RAM:Icons/CDTV.info"         "RAM:Icons/ION.info"         "RAM:Icons/MIDI.info" 
  432.             "RAM:Icons/PioneerLD.info"    "RAM:Icons/SonyLD.info"        "RAM:Icons/ScalaMM.info"
  433.             "RAM:Icons/ScalaMMPlayer.info"    "RAM:Icons/ScalaMMPrint.info"    "RAM:Icons/DVE-10.info"
  434.             "RAM:LHA"             "RAM:MakeOverscan"         "RAM:MoveLingo"
  435.             "RAM:Icons"            "RAM:Icons.info"))
  436.  
  437. ;=============================================================================
  438. ; Installation of disk "ScalaMM1"
  439.  
  440. (Inst_Libs)
  441. (if (BITAND slct 1) ((Inst_Devs) (Inst_Scala)))
  442.  
  443. (if (BITAND slct 2)
  444.     (    (askdisk (prompt #MMDISK1)(dest "ScalaMM1")(help @askdisk-help))
  445.         (set @Working (cat DECUTILS))
  446.         (set @Dest (tackon @default-dest "Utilities"))
  447.         (set @Source ("ScalaMM1:Utilities"))
  448.         (set @Name.LHA ("Utils.lha"))
  449.         (set @Size @S_UTILS)
  450.         (Inst_Files)
  451.         (copyfiles (prompt "")(help "")(source "RAM:Icons/ScalaMMPrint.info")(files)(dest @DEST))
  452.         (rename (tackon @Dest "ScalaMMPrint.info") (tackon @Dest "AnimLab.info"))
  453.         (copyfiles (prompt "")(help "")(source "RAM:Icons/ScalaMMPrint.info")(files)(dest @DEST))
  454.         (rename (tackon @Dest "ScalaMMPrint.info") (tackon @Dest "FixScript.info"))
  455.         (copyfiles (prompt "")(help "")(source "RAM:Icons/ScalaMMPrint.info")(files)(dest @DEST))
  456.         (tooltype (dest (tackon @Dest "Animlab" )(noposition))) 
  457.         (tooltype (dest (tackon @Dest "ScalaMMPrint" )(noposition))) 
  458.         (tooltype (dest (tackon @Dest "FixScript" )(noposition))) 
  459.         (tooltype (dest (tackon @Dest "FixScript.doc" )(noposition))) 
  460.     )
  461. )
  462.  
  463. (if (BITAND slct 4)
  464.     (    (askdisk (prompt #MMDISK1)(dest "Scalamm1")(help @askdisk-help))
  465.         (set @Working #DECDEMOS)
  466.         (set @Dest (tackon @default-dest "Scripts"))
  467.         (set @Source ("Scalamm1:Scripts"))
  468.         (set @Name.LHA ("Scr.lha"))
  469.         (set @Size @S_SCRIPTS)
  470.         (Inst_Files)
  471.         (Move_Lingo)
  472.     )
  473. )
  474.  
  475. (if (BITAND slct 8)
  476.     (    (askdisk (prompt #MMDISK1)(dest "Scalamm1")(help @askdisk-help))
  477.         (makedir (tackon @default-dest "Symbols")(infos))
  478.         (tooltype (dest (tackon @default-dest "Symbols"))(noposition)) 
  479.         (set @Working #DECAREXX)
  480.         (set @Dest (tackon @default-dest "Arexx"))
  481.         (set @Source ("Scalamm1:Arexx"))
  482.         (set @Name.LHA ("Arexx.lha"))
  483.         (set @Size @S_AREXX)
  484.         (Inst_Files)
  485.         (tooltype (dest @Dest)(noposition)) 
  486.     )
  487. )
  488.  
  489. (if (BITAND slct 16)
  490.     (    (askdisk (prompt #MMDISK1)(dest "Scalamm1")(help @askdisk-help))
  491.         (makedir (tackon @default-dest "Startup")(infos))
  492.         (tooltype (dest (tackon @default-dest "Startup"))(noposition))
  493.         (set @Working #DECEX)
  494.         (set @Dest (tackon @default-dest "EX"))
  495.         (set @Source ("Scalamm1:Ex"))
  496.         (set @Name.LHA ("Ex.lha"))
  497.         (set @Size @S_EX)
  498.         (Inst_Files)
  499.         (copyfiles (prompt "")(help "")(source "RAM:Icons/CDTV.info")(files)(dest @DEST))
  500.         (tooltype (dest (tackon @DEST "CDTV"))(noposition))
  501.         (copyfiles (prompt "")(help "")(source "RAM:Icons/ION.info")(files)(dest @DEST))
  502.         (tooltype (dest (tackon @DEST "ION"))(noposition))
  503.         (copyfiles (prompt "")(help "")(source "RAM:Icons/MIDI.info")(files)(dest @DEST))
  504.         (tooltype (dest (tackon @DEST "MIDI"))(noposition))
  505.         (copyfiles (prompt "")(help "")(source "RAM:Icons/DVE-10.info")(files)(dest @DEST))
  506.         (tooltype (dest (tackon @DEST "DVE-10"))(noposition))
  507.         (copyfiles (prompt "")(help "")(source "RAM:Icons/PioneerLD.info")(files)(dest @DEST))
  508.         (tooltype (dest (tackon @DEST "PioneerLD"))(noposition))
  509.         (copyfiles (prompt "")(help "")(source "RAM:Icons/SonyLD.info")(files)(dest @DEST))
  510.         (tooltype (dest (tackon @DEST "SonyLD"))(noposition))
  511.     )
  512. )
  513.  
  514. (if (BITAND slct 1) (    (makedir (tackon @default-dest "Layouts")(infos))
  515.             (tooltype (dest (tackon @default-dest "Layouts"))(noposition))
  516.             (makedir (tackon @default-dest "Text")(infos))
  517.             (tooltype (dest (tackon @default-dest "Text"))(noposition))))
  518. ;=============================================================================
  519. ; Installation of disk "ScalaMM2"
  520. (if (BITAND slct 64) (Inst_Dsk2))
  521. ;=============================================================================
  522. ; Installation of disk "ScalaMM3"
  523. (if (BITAND slct 64) (Inst_Dsk3))
  524. ;=============================================================================
  525. ; Installation of disk "ScalaMM4"
  526. (if (BITAND slct 64) (Inst_Dsk4))
  527. ;=============================================================================
  528. ; Installation of disk "ScalaMM5"
  529. (if (BITAND slct 64) (Inst_Dsk5))
  530. (if (BITAND slct 32) (Inst_font))
  531. (if (BITAND slct 4)
  532.     (    (askdisk (prompt #MMDISK5)(dest "ScalaMM5")(help @askdisk-help))
  533.         (set @Working #DECLASCALA1)
  534.         (set @Dest (tackon @default-dest "Animations"))
  535.         (set @Source ("ScalaMM5:"))
  536.         (set @Name.LHA ("LaScala1.lha"))
  537.         (set @Size @S_LASCALA1)
  538.         (Inst_Files)
  539.     )
  540. )
  541. ;=============================================================================
  542. ; Installation of disk "ScalaMM6"
  543. (if (BITAND slct 4)
  544.     (    (askdisk (prompt #MMDISK6)(dest "ScalaMM6")(help @askdisk-help))
  545.         (set @Working #DECLASCALA3)
  546.         (set @Dest (tackon @default-dest "Animations"))
  547.         (set @Source ("ScalaMM6:"))
  548.         (set @Name.LHA ("LaScala3.lha"))
  549.         (set @Size @S_LASCALA3)
  550.         (Inst_Files)
  551.  
  552.         (set @Dest (tackon @default-dest "Animations"))
  553.         (set @Working #DECANIM1)
  554.         (set @Source ("ScalaMM6:"))
  555.         (set @Name.LHA ("Anim1.lha"))
  556.         (set @Size @S_ANIM1)
  557.         (Inst_Files)
  558.     )
  559. )
  560. ;=============================================================================
  561. ; Installation of disk "ScalaMM7"
  562. (if (BITAND slct 4)
  563.     (    (askdisk (prompt #MMDISK7)(dest "ScalaMM7")(help @askdisk-help))
  564.         (set @Working #DECMUSIC)
  565.         (set @Dest (tackon @default-dest "Music"))
  566.         (set @Source ("ScalaMM7:"))
  567.         (set @Name.LHA ("Music1.lha"))
  568.         (set @Size @S_MUSIC1)
  569.         (Inst_Files)
  570.  
  571.         (set @Working #DECSOUNDS)
  572.         (set @Dest (tackon @default-dest "Sounds"))
  573.         (set @Source ("ScalaMM7:"))
  574.         (set @Name.LHA ("Sound1.lha"))
  575.         (set @Size @S_SOUND1)
  576.         (Inst_Files)
  577.  
  578.         (set @Working #DECSYMBOLS)
  579.         (makedir (tackon @default-dest "Symbols")(infos))
  580.         (tooltype (dest (tackon @default-dest "Symbols"))(noposition))
  581.         (set @Dest (tackon @default-dest "Symbols/Scala"))
  582.         (set @Source ("ScalaMM7:"))
  583.         (set @Name.LHA ("ScSym1.lha"))
  584.         (set @Size @S_SYM1)
  585.         (Inst_Files)
  586.  
  587.         (set @Working #DECDEMOBACK)
  588.         (makedir (tackon @default-dest "Backgrounds")(infos))
  589.         (tooltype (dest (tackon @default-dest "Backgrounds"))(noposition))
  590.         (set @Dest (tackon @default-dest "Backgrounds/Scala"))
  591.         (set @Source ("ScalaMM7:"))
  592.         (set @Name.LHA ("Scala1.lha"))
  593.         (set @Size @S_SCALA1)
  594.         (Inst_Files)
  595.  
  596.     )
  597. )
  598.  
  599. (if (BITAND slct 128)
  600.     (    (askdisk (prompt #MMDISK7)(dest "ScalaMM7")(help @askdisk-help))
  601.         (set @Working #DECPALETTES)
  602.         (set @Dest (tackon @default-dest "Palettes"))
  603.         (set @Source ("ScalaMM7:"))
  604.         (set @Name.LHA ("Palettes1.lha"))
  605.         (set @Size @S_PALETTES1)
  606.         (Inst_Files)
  607.     )
  608. )
  609.  
  610. (if (BITAND slct 256)
  611.     (    (askdisk (prompt #MMDISK7)(dest "ScalaMM7")(help @askdisk-help))
  612.         (set @Working #DECSYMBOLS)
  613.         (makedir (tackon @default-dest "Symbols")(infos))
  614.         (tooltype (dest (tackon @default-dest "Symbols"))(noposition))
  615.         (set @Dest (tackon @default-dest "Symbols/Arrows"))
  616.         (set @Source ("ScalaMM7:"))
  617.         (set @Name.LHA ("Arrows1.lha"))
  618.         (set @Size @S_ARROWS1)
  619.         (Inst_Files)
  620.  
  621.         (set @Working #DECSYMBOLS)
  622.         (set @Dest (tackon @default-dest "Symbols/Pictogramms"))
  623.         (set @Source ("ScalaMM7:"))
  624.         (set @Name.LHA ("Pict1.lha"))
  625.         (set @Size @S_PICT1)
  626.         (Inst_Files)
  627.  
  628.         (set @Working #DECSYMBOLS)
  629.         (set @Dest (tackon @default-dest "Symbols/Pictogramms"))
  630.         (set @Source ("ScalaMM7:"))
  631.         (set @Name.LHA ("Pict2.lha"))
  632.         (set @Size @S_PICT2)
  633.         (Inst_Files)
  634.  
  635.         (set @Working #DECSYMBOLS)
  636.         (set @Dest (tackon @default-dest "Symbols/Lines"))
  637.         (set @Source ("ScalaMM7:"))
  638.         (set @Name.LHA ("Line1.lha"))
  639.         (set @Size @S_LINE1)
  640.         (Inst_Files)
  641.  
  642.     )
  643. )
  644. ;=============================================================================
  645. ; Installation of disk "ScalaMM8"
  646. (if (BITAND slct 4)
  647.     (    (askdisk (prompt #MMDISK8)(dest "ScalaMM8")(help @askdisk-help))
  648.         (set @Working #DECLASCALA2)
  649.         (set @Dest (tackon @default-dest "Animations"))
  650.         (set @Source ("ScalaMM8:"))
  651.         (set @Name.LHA ("LaScala2.lha"))
  652.         (set @Size @S_LASCALA2)
  653.         (Inst_Files)
  654.     )
  655. )
  656. ;=============================================================================
  657. ; Exit strings
  658. (tooltype (dest @default-dest)(noposition)) 
  659. (delete     "RAM:Icons/CDTV.info"         "RAM:Icons/ION.info"         "RAM:Icons/MIDI.info" 
  660.         "RAM:Icons/PioneerLD.info"    "RAM:Icons/SonyLD.info"        "RAM:Icons/ScalaMM.info"
  661.         "RAM:Icons/ScalaMMPlayer.info"    "RAM:Icons/ScalaMMPrint.info"    "RAM:Icons/DVE-10.info"
  662.         "RAM:LHA"
  663.         "RAM:MakeOverscan"         "RAM:MoveLingo"
  664.         "RAM:Icons"            "RAM:Icons.info")
  665. (exit)
  666. (Welcome)
  667.